Aminet 30/Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso/Aminet/gfx/edit/VE-primcolors.lha/arexx/PrimaryColors.rexx

OS/2 REXX Batch file | 1999-02-24 | 5KB | 203 lines

/*

   v1.67 PrimaryColors

   Marko Seppänen
   [e-mail]

*/

address IMAGEENGINEER

Options results
signal on error            /* Setup a place for errors to go */

if arg()=0 then exit
x=arg(1)
pic=subword(x,1,1)
check=subword(x,2,1)
randombit=subword(x,3,1)


MARK pic PRIMARY

PROJECT_INFO pic TYPE
info=result
if info~='COLOUR' then do
  CONVERT_TO_COLOUR pic
  x0=RESULT
end
else do
  CONVERT_TO_GREY pic
  tmp=result
  CONVERT_TO_COLOUR tmp
  x0=result
  CLOSE tmp
end


if randombit="1" then do

  x = random(1,12,time('S'))

  if x="1" then 'COLOUR_FILTER' x0 'RGB 255 0 0 0 0 0'
  if x="2" then 'COLOUR_FILTER' x0 'RGB 255 0 255 0 0 0'
  if x="3" then 'COLOUR_FILTER' x0 'RGB 0 0 255 0 0 0'
  if x="4" then 'COLOUR_FILTER' x0 'RGB 0 0 255 0 255 0'
  if x="5" then 'COLOUR_FILTER' x0 'RGB 0 0 0 0 255 0'
  if x="6" then 'COLOUR_FILTER' x0 'RGB 255 0 0 0 255 0'
  if x="7" then 'COLOUR_FILTER' x0 'RGB 40 0 100 0 255 0'
  if x="8" then 'COLOUR_FILTER' x0 'RGB 40 0 100 0 0 0'
  if x="9" then 'COLOUR_FILTER' x0 'RGB 255 0 125 0 0 0'
  if x="10" then 'COLOUR_FILTER' x0 'RGB 100 0 0 0 0 0'
  if x="11" then 'COLOUR_FILTER' x0 'RGB 255 0 0 0 -128 0'
  if x="12" then 'COLOUR_FILTER' x0 'RGB 255 0 200 0 255 0'

  CLOSE x0

  exit

end




if exists("ie:prefs/veprimarycolors.cfg") == "1" then
  do
    call open("temp","ie:prefs/veprimarycolors.cfg","R")
    values=readln("temp")
    parse var values ok color contr all .
    call close("temp")
  end
else
  do
    color=0
    contr=1
    all=0
  end


if check~="1" then do

  'FORM "Primary Colors" "Use|Cancel"',
  'CYCLE,"Choose color","DRed|Yellow|Green|LBlue|DBlue|Violet|Blue|DGreen|Brown|Red|Orange|Pink",'color'',
  'CHECKBOX,"Contrast stretch",'contr'',
  'CHECKBOX,"All 12 colors",'all''

  values=result
  parse var values ok color contr all .

end
else do

    all=0

end


if ok = 0 then exit

call open("temp","ie:prefs/veprimarycolors.cfg","W")
res=writeln("temp",values)
call close("temp")


if all == "1" then do
  'COLOUR_FILTER' x0 'RGB 255 0 0 0 0 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 255 0 255 0 0 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 0 0 255 0 0 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 0 0 255 0 255 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 0 0 0 0 255 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 255 0 0 0 255 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 40 0 100 0 255 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 40 0 100 0 0 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 255 0 125 0 0 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 100 0 0 0 0 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 255 0 0 0 -128 0'
  if contr="1" then Call Contr result
  'COLOUR_FILTER' x0 'RGB 255 0 200 0 255 0'
  if contr="1" then Call Contr result

  CLOSE x0
  exit

end
else do

  if color == "0" then 'COLOUR_FILTER' x0 'RGB 255 0 0 0 0 0'
  if color == "1" then 'COLOUR_FILTER' x0 'RGB 255 0 255 0 0 0'
  if color == "2" then 'COLOUR_FILTER' x0 'RGB 0 0 255 0 0 0'
  if color == "3" then 'COLOUR_FILTER' x0 'RGB 0 0 255 0 255 0'
  if color == "4" then 'COLOUR_FILTER' x0 'RGB 0 0 0 0 255 0'
  if color == "5" then 'COLOUR_FILTER' x0 'RGB 255 0 0 0 255 0'
  if color == "6" then 'COLOUR_FILTER' x0 'RGB 40 0 100 0 255 0'
  if color == "7" then 'COLOUR_FILTER' x0 'RGB 40 0 100 0 0 0'
  if color == "8" then 'COLOUR_FILTER' x0 'RGB 255 0 125 0 0 0'
  if color == "9" then 'COLOUR_FILTER' x0 'RGB 100 0 0 0 0 0'
  if color == "10" then 'COLOUR_FILTER' x0 'RGB 255 0 0 0 -128 0'
  if color == "11" then 'COLOUR_FILTER' x0 'RGB 255 0 200 0 255 0'

  col=result

end

if check~="1" then do
  if contr="1" then CALL Contr col
end

CLOSE x0


exit

end






Contr:

  x1=arg(1)

  CONTRAST_STRETCH x1
  x2=result
  CLOSE x1

  CONTRAST x2 20
  CLOSE x2

Return


exit

/*******************************************************************/
/* This is where control goes when an error code is returned by IE */
/* It puts up a message saying what happened and on which line     */
/*******************************************************************/
error:
if RC=5 then do            /* Did the user just cancel us? */
    IE_TO_FRONT
    LAST_ERROR
    'REQUEST "'||RESULT||'"'
    exit
end
else do
    IE_TO_FRONT
    LAST_ERROR
    'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
    exit
end